home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / Oberon⁄F™ 1.1 / Mac / Mod / FixMath (.txt) < prev    next >
Encoding:
Oberon Document  |  1995-06-15  |  2.3 KB  |  52 lines  |  [oODC/obnF]
  1. Documents.StdDocumentDesc
  2. Documents.DocumentDesc
  3. Containers.ViewDesc
  4. Views.ViewDesc
  5. Stores.StoreDesc
  6. Documents.ModelDesc
  7. Containers.ModelDesc
  8. Models.ModelDesc
  9. Stores.ElemDesc
  10. TextViews.StdViewDesc
  11. TextViews.ViewDesc
  12. TextModels.StdModelDesc
  13. TextModels.ModelDesc
  14. TextModels.AttributesDesc
  15. Geneva
  16. Geneva
  17. StdStamps.StdViewDesc
  18. Geneva
  19. MODULE MacFixMath;
  20. (* cp 
  21.     IMPORT SYSTEM, MacTypes;
  22.     CONST CODE = 1;
  23.     TYPE
  24.         Fixed* = MacTypes.Fixed;
  25.         Fract* = MacTypes.Fract;
  26.     PROCEDURE [CODE] FixMul* (a, b: Fixed): Fixed 0A8H, 068H;
  27.     PROCEDURE [CODE] FixRatio* (numer, denom: INTEGER): Fixed 0A8H, 069H;
  28.     PROCEDURE [CODE] FixRound* (x: Fixed): INTEGER 0A8H, 06CH;
  29.     PROCEDURE [CODE] FracMul* (x, y: Fract): Fract 0A8H, 04AH;
  30.     PROCEDURE [CODE] FixDiv* (x, y: Fixed): Fixed 0A8H, 04DH;
  31.     PROCEDURE [CODE] FracDiv* (x, y: Fract): Fract 0A8H, 04BH;
  32.     PROCEDURE [CODE] FracSqrt* (x: Fract): Fract 0A8H, 049H;
  33.     PROCEDURE [CODE] FracCos* (x: Fixed): Fract 0A8H, 047H;
  34.     PROCEDURE [CODE] FracSin* (x: Fixed): Fract 0A8H, 048H;
  35.     PROCEDURE [CODE] FixATan2* (x, y: LONGINT): Fixed 0A8H, 018H;
  36.     PROCEDURE [CODE] Long2Fix* (x: LONGINT): Fixed 0A8H, 03FH;
  37.     PROCEDURE [CODE] Fix2Long* (x: Fixed): LONGINT 0A8H, 040H;
  38.     PROCEDURE [CODE] Fix2Frac* (x: Fixed): Fract 0A8H, 041H;
  39.     PROCEDURE [CODE] Frac2Fix* (x: Fract): Fixed 0A8H, 042H;
  40. END MacFixMath.
  41. TextControllers.StdCtrlDesc
  42. TextControllers.ControllerDesc
  43. Containers.ControllerDesc
  44. Controllers.ControllerDesc
  45. TextRulers.StdRulerDesc
  46. TextRulers.RulerDesc
  47. TextRulers.StdStyleDesc
  48. TextRulers.StyleDesc
  49. TextRulers.AttributesDesc
  50. Geneva
  51. Documents.ControllerDesc
  52.